home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
edit
/
me_cd25.zip
/
MUTT2.ZIP
/
WINDOW.MUT
< prev
next >
Wrap
Text File
|
1992-11-09
|
711b
|
31 lines
;; Some window ops
;; C Durland Public Domain
(defun
MAIN
{
(bind-to-key "grow-window" 'C-x^')
(bind-to-key "shrink-window" "C-xC-z")
}
grow-window { (window-height -1 (+ (window-height -1) (arg-prefix))) }
shrink-window { (window-height -1 (- (window-height -1) (arg-prefix))) }
shrink-window-to-dot { (window-height -1 (window-row -1)) }
)
(include me2.h)
(defun
change-window-size
{
(int w n old-size)
(w (convert-to NUMBER (ask "window to change: ")))
(n (convert-to NUMBER (ask "new window size: ")))
(old-size (window-height w))
(window-height w n)
(msg "old size: " old-size
" new size: " (window-height w))
}
)